home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 January / macformat-020.iso / Shareware City / Applications / Alpha.5.96 folder / Tcl / SystemCode / wordCompletion.tcl < prev   
Encoding:
Text File  |  1994-09-15  |  5.7 KB  |  184 lines  |  [TEXT/ALFA]
  1. #===========================================================================
  2. # 'Word Completion', in the spirit of Paul van Mulbregt's BBXT.
  3. # 
  4. # Composed by Mark Nagata (nagata@kurims.kyoto-u.ac.jp) 
  5. # for Alpha 5.76, 4/22/94.
  6. # 
  7. # Modified by Tim van der Leeuw (tnleeuw@cs.vu.nl), 9/14/94.
  8. # In the spirit of emacs.
  9. # I have modified this routine extensively to add the ability to complete
  10. # a word in multiple ways if called repeatedly.
  11. # For this purpose, I have introduced all the global variables (starting with
  12. # __wc__) and added the first if-statement -- everything between
  13. # 'set pos [getPos]' and 'backwardWord'. In the original routine, I've changed
  14. # some existing variables to globals, prefixing their name with '__wc__'.
  15. #
  16. # This code is probably not the most efficient tcl-code, nor the most elegant
  17. # tcl-code for this problem, but hey, it is the first function I've ever
  18. # written in tcl!
  19. # If anyone has some suggestions for improvement, or
  20. # knows of a better algorithm, I would like to know it.
  21. #================================================================================
  22. set __wc__insPos -1
  23. proc wordCompletion {} {
  24.     global __wc__len __wc__prevPos __wc__insPos __wc__prevFound __wc__pat __wc__nextStart __wc__fwd
  25.     
  26.     set pos [getPos]
  27.     if $pos==$__wc__insPos {
  28.         # Cursor changed place?
  29.         set skipStr $__wc__prevFound
  30.         while 1 {    
  31.             if $__wc__fwd {
  32.                 set fndMsg "found below."
  33.             } else {
  34.                 set fndMsg "found above."
  35.             }
  36.             if {![catch {search -f $__wc__fwd -r 1 -i 0 -m 1 -- $__wc__pat $__wc__nextStart} data]} {
  37.                 set d00 [lindex $data 0]
  38.                 set beg [expr $d00+$__wc__len]
  39.                 set end [lindex $data 1]
  40.                 set __wc__prevFound [getText $d00 $end]
  41.                 if [string compare $skipStr $__wc__prevFound] {
  42.                     # Have we got the same word twice?
  43.                     set txt [getText $beg $end]
  44.                     deleteText $__wc__prevPos $__wc__insPos
  45.                     goto $__wc__prevPos
  46.                     insertText $txt
  47.                     message $fndMsg
  48.                     # Set a number of globals for possible next go-around
  49.                     set __wc__insPos [getPos]
  50.                     if $__wc__fwd {
  51.                         # Search Forwards
  52.                         set __wc__nextStart $end
  53.                         # End of found word
  54.                     } else {
  55.                         # Search Backwards
  56.                         set __wc__nextStart [expr $d00 - $__wc__len]
  57.                         # Before start of found word
  58.                         if $__wc__nextStart<=0 {
  59.                             set __wc__fwd 1
  60.                             set __wc__nextStart $__wc__insPos
  61.                         }
  62.                     }
  63.                     return
  64.                 } else {
  65.                     # Move start of search after finding string again
  66.                     if $__wc__fwd {
  67.                         # Searching Forwards
  68.                         set __wc__nextStart $end
  69.                         # End of found word
  70.                     } else {
  71.                         # Still Searching Backwards
  72.                         set __wc__nextStart [expr $d00 - $__wc__len]
  73.                         # Before start of found word
  74.                         if $__wc__nextStart<=0 {
  75.                             set __wc__fwd 1
  76.                             set __wc__nextStart $__wc__insPos
  77.                         }
  78.                     }
  79.                 }
  80.                 # End if string compare 
  81.             } else {
  82.                 # Search string not found
  83.                 if $__wc__fwd {
  84.                     # We were already looking forward, so the word is not in the file
  85.                     message "Not found."
  86.                     set __wc__insPos -1
  87.                     goto $pos
  88.                     backwardWordSelect
  89.                     return
  90.                 } else {
  91.                     # start looking forward
  92.                     set __wc__fwd 1
  93.                     set __wc__nextStart $__wc__insPos
  94.                 }
  95.             }
  96.             
  97.         }
  98.     }
  99.     backwardWord
  100.     # Start new search for WordCompletion
  101.     set start [getPos]
  102.     set one [getText $start $pos]
  103.     set __wc__len [expr $pos-$start]
  104.     set __wc__pat [append one {[a-zA-Z0-9_]+}]
  105.     set start [expr $start-1]
  106.     if {![catch {search -f 0 -r 1 -i 0 -m 1 -- $__wc__pat $start} data]} {
  107.         set d00 [lindex $data 0]
  108.         set beg [expr $d00+$__wc__len]
  109.         set end [lindex $data 1]
  110.         set __wc__prevFound [getText $d00 $end ]
  111.         set txt [getText $beg $end]
  112.         goto $pos
  113.         insertText $txt
  114.         message "found above."
  115.         # Set a number of globals for possible next go-around
  116.         set __wc__insPos [getPos]
  117.         set __wc__prevPos $pos
  118.         set __wc__nextStart [expr $d00-$__wc__len]
  119.         set __wc__fwd 0
  120.         return
  121.     }
  122.     if {![catch {search -f 1 -r 1 -i 0 -m 1 -- $__wc__pat $pos} data]} {
  123.         set __wc__prevFound [getText [lindex $data 0] [lindex $data 1] ]
  124.         set beg [expr [lindex $data 0]+$__wc__len]
  125.         set end [lindex $data 1]
  126.         set txt [getText $beg $end]
  127.         goto $pos
  128.         insertText $txt
  129.         message "found below."
  130.         # Set a number of globals for possible next go-around
  131.         set __wc__insPos [getPos]
  132.         set __wc__prevPos $pos
  133.         set __wc__nextStart $end
  134.         set __wc__fwd 1
  135.         return
  136.     }
  137.     goto $pos
  138.     backwardWordSelect
  139. }
  140.  
  141.  
  142.  
  143. # This is all due to the idea of Paul van Mulbregt. In his documentation 
  144. # of his BBEdit BBExtension (info-mac/text/bbedit-fl-package-11.hqx), 
  145. # he explains:
  146. # 
  147. # --  From the documentation written by        --
  148. # --  Paul van Mulbregt (paulvm@dragonsys.com) --
  149. # 
  150. # Word Completion
  151. # 
  152. # This extension saves typing, as well as making sure variable names are 
  153. # correct.  While typing the following C code, there is no need to type all 
  154. # of the second occurrence of verySpecialInt.  One could copy and paste, but 
  155. # another way is to type a few letters, and select the Word Completion 
  156. # Extension.
  157. # 
  158. #     int verySpecialInt = 10;
  159. #     while(verySp                                                    
  160. # 
  161. # 
  162. # becomes
  163. # 
  164. #     int verySpecialInt = 10;
  165. #     while(verySpecialInt                                             
  166. # 
  167. #                                                     
  168. # 
  169. # Word Completion will look back in the code to find the first match and then 
  170. # extend the current occurrence to match the previous occurrence.  If a match 
  171. # is not found looking backwards, then it looks forwards.  If not found 
  172. # forwards, the word is selected.  This is a quick way to save on typing, 
  173. # good for helping prevent RSI, but perhaps more importantly, to make sure 
  174. # that variable names are spelt correctly.
  175. # 
  176. # There is no user interface for Word Completion.
  177. # 
  178. # The usefulness of this extension is greatly enhanced if the extension is 
  179. # bound to a key!
  180. # 
  181. # -- end of Paul van Mulbregt's explanation. --
  182.  
  183.  
  184.